SIN (Sinclair Informations Nouvelles)

-SINCLAIR INFORMATION NOUVELLES-
Ve H novembre @S 52.00

Rédacteur: Réal Gagnon (544 Hermine £2 Québec P.Q. GIN 255)
Ce bulletin est conçu avec l'aide d'un traitement de texte
ТАЗНОВО II de Tasman Software (version 2068)
et d'une imprimante SMITH-CORONA , Fastext 80.

## DANS CE NUMERO ++

EPROGRAMME НА VOIX DU 2058, faites parler votre 2068
XPROGRAMME SCONVERSION НЕХ-МЕС & DEC- HEY
EPEOGRAMME TITRE JD, créer des pages-titres en 3D.

+ECRAN 3D, « он йе 7

SURFACE PLANE, un peu de graphisme

+BELLE 6 ЧЕ , ew belt 3 жеу POS созы eS

56 D (A
TECHNIQUE ‘Ecrire à l'écran еп langage machine
#LOGICIEL ФАКТ ATTACK (Spectrum)
CHEQUERED FLAG {152058}
MANIT (Spectrum)
#PLUS des trucs sour le 2058 et l'actualité

SEN лла аа н

SINCLAIR MEUS |

LANGAGES DISPONIBLES POUR LE 152088
Pour ceux que le BASIC n'interezse plus HAWG SOFTWARE propose
langages de programmation pour le 2068 а il s'agit
ORTH et А erne le FORTH, il

amm n
d'un PASCAL, En св aui соп
е и Fü

=
m Fig-FORTH et il vient avec un manuel de

ix est environ 30% US . Le PASCAL est une
ft PASCAL qui existe pour іе SPECTRUM. 11
SAL très complet et il vient avec un manuel

a es. Four plus d'informations au sujet du FORTH

|
HAUS 5 SOFTWAPE, Р.0. Drauer 7580, Little
7, USé. Le FORTH est également disponible
Mountain View Press inc., Mountain Vieus

Pour ceux qui possède un cablosélecteur, le dimanche à 15108,
ТУРО chaine 99 {canal 10) présente un émission qui s'appelle
PIC gd mus E ЕДВАМ. Cette émission traits de 1а
micro- iai F

ЕД: communautaire (canal 9). М. Топу
с son émission erk VIDEO. icicle
ro nt aux logi poue COMMODORE

ма
hi n
₪
me

іў a une grosse rumeur qui circule en ce moment еп
Angleterre voulant que Sinclair soit sur le point de mettre сув

marché un 2. de 1208. Dans POPULAR COMPUTIMG WEEKLY
ча ше description de ce SPECTRUM 128, зі
ription ce nouveau SPECTRUM est bel et
іе résultat d'un système de BANK
е 2058. Un

pue
TICKS

HEN IDEC ` DEG AH

DK

| REM НЕХ-ЪВЕС
20 LET DEC-D: LET А=10: LET Beli: LET C=12: LET D-13: LET E-14
LET F=13
30 INPUT "НЕХ CODE: * LINE Hê
25 FOR Ізі Tû LEN H$-1
40 LET DEC C=DEC+ VAL HE(T) #44 LEN H£-D): MEXT I

501 SEL VAL НЕ?
80 PRI NT H $, DEC: 60 TO 20
1 RE
1B IN
20 60!
iU8 LE
1Ш LET x= INT (a/16) u
113 LET 07)+40+ש=ט‎ AND gg: LET а= CHE utat
i70 IF a THEN GO TO 110
180 IF INT ( LEM a$/2) ¿b LEN atil? THEN LET a$="D"+a$
190 RETURN

| Programme: Belle Cassette |

u ая. שש‎ rome t dE
הפוגה שוג‎ те ₪ =
שח‎ ₪ pour чи Б.
1 REM PRESENTATION-CASSETTE
כ ו‎ а о аад ии,
1200 DIM b$(14,32): LET a$=" couper ici À

5005 PRINT АТ 21,0:Че nom du programme? (Max. 15)"

5010 INPUT AT 0,0: LINE РФ? USR 2351" USR 2351

5020 PRINT AT 21,0;"Le tupa d'ordinateur? (Мах. 10)"

5025 INPUT AT 0,0; LINE 0$? USR 21617 USR 2361

5030 FOR 151 TO 13: PRINT АТ 21,0;'Le texte ігі, “Мах. 32)': I
МРОТ АТ 0,05 LINE Tê! USR 2361" USR 2361

5025 IF LEN T$ THEN LET béit, (15- LEN T$/2)+1 TO )=t$

5049 HEXT І: LPRINT a$

6020 CLE : PLOT 0,175: DRAW 255,0: LET FLAG=1: LET xx1=(255-1 LE
א‎ P$z#16))/2-B: LET :170=טט‎ LET y$=P$: GO SUB 9000

5025 PLOT 0,ҮҮ-2: DRAW 255,0: PRINT АТ 6,0;

5030 FOR ісі TO 13: PRINT bêti): NEXT i

6080 LET FLAG-Q: LET xx1-(256-( LEN 0$48))/2-B: LET uu=15: LET y
#-û$: 60 SUB 9000

6300 .- #0:1$: COPY

6520 15: LET Yêzpêt' )'+0%+'(': LET XX1z0255-( | +
LET yy=i? 175: CLS + 60 SUB 9000: PLOT D.uu-2: DRAW 255.0

5800 PRINT АТ &40:0$,' CASSETTE" T 1$: COPY ; STOP

9005 хх en PRINT АТ 21,0:u$

9018 FOR y=7 ד‎ СТЕР -1: FOR si Tû 255

9020 IF NT ы THEN 50 SUE 9500: IF FLAG THEN LET YY2=YY
бо SUR 95 ê си ҮҮ=ҮҮ2

9020 LET >252+1+7| 6: xi LET uuruu-2-(29FLAG) ! ТЕТ хх2=х
#1: NEXT ц: PRINT АТ дн EI Tü LEN u$): RETURN

$500 РОТ xxZ.uut PLOT хх2+1.9ц

9501 PLOT х2, чуні: РОТ хх, чу: RETURN

9999 CAVE "pres саса”: VERIFY '": REM 6А6-089

= nnn KANÊN лм.

— — ESSRI de LOGICIELS |

Май : ANT ATTACK (Spectrum)
ТҮРЕ : Jeu
EDITEUR: QUICKSYLVA

Vous etes dans une ville appelée ANTESCHER et vous devez
sauvez une jeune fille (ou un jeune garçon selon le саз), mals
attention il y a des fourmis géantes qui vous poursuivent sans
relache. ANT ATTACK est un classique. L'animation est sublime.
Hous avons un vue en 2) (genre IAXXON).avec possibilité de š
angles de vue différents. L'action est trés rapide. Bouez assu

е ce nî le genre de jeu auquel l'on joue 5 minut
ашап veut plus rien savoir par la suite,au contraire ANT ATTACK

+ 115

jonnant, Les Anglais appellent ce genre de jeu * ап
addictive game а et ils ont raison s..

Ном : CHEQUERED FLAG (752058)
ТҮРЕ! Simulation
EDITEUR: PSION

5: votre reve est de conduire une FORQULE 1,24 bien CHEQUERED
FLAG est pour vous. Vous avez le choix entre 3 types de FORMULE
: 2 ב‎ transmission manuelle et l'autre (sour les débutants...)
transmission automatique. Vous avez également le choix entre
10 parcours différents. Le but ect de compléter le parcours sans
faire trop d'accidents et avec le meilleur temps possible. Sur

f á

la piste,il faut éviter les éternelles taches d'huile et dez
éclats de verre brisé, Il faut également surveiller 18 niveau
sence et éviter le zurchauffement du moteur,si nous avons un

Un autre classique du GPECTRUM. Il s'agit de guider HILLY à

fférentes cavernes.dans chaque caverne WILLY doit
rouver un certaine nombre de clés pour pouvoir passer à la
suivante. [e феи demande de Іа stratégie et de

жа. Bt beaucoup de patience. 11 ч а ше dizaine de
x différents. L'animation est d'une qualité incroyable et
i rapide. Donc plusieurs heures de bonheur
szuré avec MANIC HINER pour Spectrum...

77 ==

| Technique:ECRIRE en C.H.

'assembleur du Z BO possëde une instruction spéciale pour
écrire du texte à l'écran. Cette instruction a pour nom RST 15, `
ST signifie Re§Tart. L'utilisation de cette instruction est
très simple. En premier lieu, il suffit de charger
l'Accumulateur avec le code ASCII (qui correspond au caractère
que l'on veut afficher) et on fait ВЕТ 16. Si on veut afficher
la lettre 'A',dont le code ASCI est &5,nous faisons: LD A,65 et

Mais que faire si nous voulons afficher un "A" sur la dixième
ligne et à la dixième colonne. Regardons dans le 2068 USER
MANUAL à la page 227 la liste des codes ASCII. Nous remarquons
aue le сода 22 correspond au caractére de controle AT. Ainsi
pour afficher sur la ligne 10 et à la colonne iD,nous faisons:

LD AZZ Н
RST 15 ;
LD 0 H

пост £
וכח‎ lê

LE êl ;calonne 10
RET 15

LD А, 55 ісоде "A"
RST 16

ВЕТ

kinsi pour une couleur PAPER différente:

LD A.17 scontrole INR
RST 6
LD 5 icouleur CYAN

Comme nous pouvons la constater

1 te
d'afficher un texte complet de cette Ғабоп, L

+
appelée PR-STRING, aui va nous donné un coup de m
ic 7

са ш

س אע

ORG 40900

LD 8 15 codes à afficher
LD 15,90000 rage, des codes
CALL 8667 ;PR_STRING

RET retour- BASIC

085 50000
DEFB 22,20,15

;
1

z Е a

DEFE "S, I'N inatre message

Voici une petite routine qui démontre une technique
в de petit message (ex. messages d'erreur), Hous
chargeons А avec le code d'identification du message à afficher,
Puis HL avec l'ad départ de la zone de recherche ВС est
la longueur de cette zone. L'instruction CPIR signifie ConPare
contenu de HL avec Asi la
=Ü) alors HAAL et РСЕВС-

ORG 40000 loop INC HL

LE Aí 1 10005 du message LD A {HL} ASCII
LE HL,45000 зай”. de départ RST 16 jaffiche
LD 26,5000 Попа, de la zone DIN? loop :BRC-07
CPIE . RET ;- BASIC
JP Zok 3&7 (HL)-->ak ÖRG 50000

АЗН
1202 ~- BASIC mess ГЕРЕ 1,3; "5, "1,94

то
rm
-4

+

ак LD Е.Н] гіппа. du message DEFE 2,8," "А, 6
PUSH RC initialisation de ПЕЕВ 'A,'Z,' E, "М
PUEH HL il'écran. DEFE "Е
}А=1 DEFB 3,8,'T,'8,'2
Н DEFE "Û, "6,8

X = en 0 шд?

КОТЕ: Pour ma рагі, 1а programmation en language machine ne peut
se faire EFFICACEMENT sans un ASSEMBLEUR. C'est pour cette
raison que je n'ai pas inclus les équivalents décimaux
תת‎
ще

DENEN

₪ LI r SCH

Or Т! Gr je
mm а Hi ₪ rê пп

fa
ique quelconque. La

is
nat cassette. Puis le 162
lise дапа 585 і.е. la
la routine machine "ENT ENDRE"
келе? és par le 58, іа

programme vous

₪
233 326, on

[PTT

our utiliser
і

avez 1

machines,

raê,
2058",

ыу‏ ההות
нопоте‏

т!
се
Э
Gel
лак]
а
m
c

₪
Tu

Ргазгалте : JEL barrage

5 5

18 БЕ ВЕСЕ

Ра РЕ

38 REH Шз בד‎
ied GO SUB тда
185 НЕМ Ki TON ZDIFFPTCULTE”]
.118 PRINT ההזי‎ 9;"B R R RR ₪ E
; TBB 8," ===”

115 BORDER 5

120 PRINT ‘TAB 5;"Uous etes en
possession de"''THB 3;"« 188 bom
bes et 5 avions ההדיי";‎ 2;"pour
completer votre mission"

128 PRINT ‘TAB 5;"Cle 727 pour
descendre” TRAB S; "Cle “т” pour г
emonter'"

139 PRINT "יי‎ ENTREZ LE NIVEAU
DE DIFFICULTE "Top 5;"( 1-5 1
S est tent "

158 INPUT sp: IF sp«1 OR 5р›5 T
HEH GO TO 158

158 PRINT ’TAR 1;" LE NOHBRE DE

BARRRGE ВАГОН” ‘TRE 6;"( 28-68

) 28 est facite"

178 INPUT ba: IF ba«28 OR Ьазба
THEN GO TO 178

133 LET 6058: LET sc-e

198 CLS

Рав REH Евра Ur

218 FOR n-i ТО ba

220 LET v-INT (RND+F18) +3

238 LET h-INT (RHD£32): IF בצח‎
THEN LET h-3

240 PRINT AT v,h; INK 4;CHR$ 14
в.

258 NEXT п

£68 PRINT ЯТ 21,8; “ВОНВЕ5- ";5с
: ВЕЕР .2,280

278 IF sc=1a9 THEN GO TO saa

ESS PRINT AT 21,15;" AHUION- ";c

298 IF сг=5 THEN GO TO 538

285 PAUSE 8

300 НЕМ BEXT TIR

318 LET v-INT iRND£18)43

328 FOR һ-й ТО 31

338 LET с%-ІМКЕҮ%
ou с$="" THEN PRINT ЯТ v,h-

;

358 IF STICK )1,1(>2 OR c&z"z"
THEN PRINT AT v,h-1;" ": LET vv
+1: IF узга THEN LET wa

3568 IF STICK (1,1)-1 OR c&-"m"
THEN PRINT HT v,h-1;" ": LET хаў
-1: IF v«à THEN LET уай

378 IF Һ=31 THEN GO TO 589

330 IF BTTR ív,h)-60 THEN PRINT

BT v,h; INK 2; FLASH 1; BRIGHT
1; CHR$£ 147: FOR п=1 TO 25: ВЕЕР
.05,-15: ВЕЕР .1,15: NEXT n: PRI
NT AT v,h;" ": LET cr=cr+1: GO T
а 288

398 PRINT HT v,h;CHRE 4

488 PAUSE sp

418 NEXT bh

Зав REM FIN DE 19 PARFIE. |

518 PRINT BT 18,18; INK 3; FLAS
H 1;" MISSION TERMINEE ^

528 STOP

S30 PRINT דה‎ 19,18; INK 3; FLAS
H 1;" AVION DETRUIT "

S48 STOP

588 REH - -==-0%כ‎ 08

618 FÜR паза то 29 STEP -.5

628 ВЕЕР .85,n

өза NEXT n

048 FOR х-1 TO 15

658 ВЕЕР ,85,-25: ВЕЕР .05,-35:

ВЕ

558

Б?а

өзе

таа =.

718 DATA 3* 15, 24,155,255 „15 5,
24,15,0,"d", 145, ER 36, 9,145, ER А
145,"e",8,8,128, 253,255,253, 158;
е

728 FOR п-і TO 3

738 RERHD аз

748 FOR аза TO 7

798 READ b: POKE USR ажға,ь

750 NEXT a

770 NEXT n

saê RETURN

HIS

` Program

Ў; REM ECRAN 3D sur une idee de J, HUNTON _______ 556-085
10 oi T 9): PRINT АТ 20,0; INVERSE 1:"3D WORDS base sur u
ne idee de JOHN HUNTON": RANDOMIZE USR 2251: RANDOMIZE USR?
361
rosseur des lettres (1-3)i"igrosseur’ USR 2
üsseurzl OR grosseur; THEN Gû TO 20:
ötre phrase peut contenir ''i'9* AND gross
ur=2)+{f£" AND gro sseur- i au maximun":
* USR 236t' USR
IM eis de quelle lignea" "ди haut (HiP n
USR 2 SR 2251: LET 8
35 INPUT АТ ü,Di'Encre (D-7):'i&' "Papier (ü-7):'ipap'"' USR 2
261' USR 2351; INK в: PAPER pap: BORDER рар: PAUSE SD: CLS
100 PRINT INK papi АТ 21.0:a$: LET а= LEM a$
110 FOR f 8 и nz TO 7
120 IF 01 THEN Gû TO 170
130 по ins AND grozseur-zi))nX4t(grnsseunrzi)*14
9-6 AND ЖАНДЫРДЫ
45 DRAW 0,-2: DRAN 3,0: DRAW 0
D DRAH -2.0: DRAN 0,-1: DRAN NT DRAH -2,-2
із BRAN 5,5: DRAW 0,4: ОҒАН 0.-5: DRAW 4,0: DRAH 0,4: DRAH Q,
DRAH -5,-5
ü DRAW 0,4: DRAN 5,5: DRAW -4,0: DRAN -5,-5
70 NEXT п; NEXT f: PRINT AT 21.0:0$(1)
Û PRINT 30111 COPY [2] STOP [3] ECRITURE"
LET i$- INREYê : IF i$="" THEN Gê TO 2 T
230 IF i$="1" THEN INPUT "i COPY : 60 TO 21
IF i$z"2" THEN STOF
IF i$ 60 TO 1000
50

к-ч

USE o

E E
Four aue le 20

255651NT 1500807255

rı1
ee

éi

ы

inopérant.

АК

RE

בכן
ка‏
E‏
tu‏
co‏

п

9

AL "š

Ж

ELE

VAL "

EP

JE input

SU

ü

б

“ац mot 8":

=
==
==

ЕТ pë

А 1; L

)
тз
m
я
м
~r

leza

i

jê LET
PRINT אי‎

IF lecze THEN

2019

e
z
mH
=
=
De]
=
(в -
+
=
=
гэ
D
ІН
+8.
ш
2
са
5
e
+
Ше
-
= A
с.
я =
| E
id
Ж
..
E
52

D ай
т "
E 2
ы +

й ₪3
b CH
v га
сш

вс

H"

Et

"E
шы

7
Ce programme vous permet de creer des pages en 3D.

i REM ____ TITRE 3D |.

5 BORDER ü: PAPER 0: INK 7: CLS : INPUT Че Messager"; LINE k
IF LEN k$225 THEN xh k$-k$( TO 23) |
20 FOR әгі TO LEN k$: (аза! * THEN NEXT o
30 LET sira; e x-0-1: 2 чаў: LET 1%=к%(0)

60 SUB 140: NEXT o: STOP

140 IF Si OR xz) OR уай OR 5134324 OR 5141 ОВ 188" OR 18€"

* THEN PRINT АТ 1

150 LET сөзі PEEK 21604)+(( PEEK 21407)#246): LET c= CODE 1$: L
ЕТ сртрэт(сед)

180 GO SUB 300: LET cos

200 FOR s=1 Tû si

210 FOR n=0 TO 7: LET (%238+0)+א+81+(%12()-8))+18104=פטס‎ 1 IF сат

si THEN LET ср=ср+1: LET 0
349 LET co=coti: POKE pos, РЕЕК с
280 ІР u=8 OR у=15 THEN Bû ӘЛ 200
290 NEXT s: RETURN
500 - ка ай к

PROGRAMME: SURFACE PLANE 8 4

1 REM SURFACE PLANE

10 FOR 1-1T0 1.2 STEP 1/5: FOR Y--1 TO 1 STEP 1/75

20 60 SUB 1000: NEXT Y: NEXT X

30 FOR Y--1 Tû 1.2 STEP 1/5: FOR X--1 TO 1 STEP 1/75
40 GO SUS 1800: NEXT X: NEXT Y: STOP

1800 LET Z-YsXxX: LET P=(X+Y*,7)#50: LET Gite, 71550

1010 PLOT ו‎ RETURN

4733 REH Pour obtenir des figures

sn as, hanner la la valeur de la variable z {lion
3000 REM differentes, changer la la valeur de la variable ап
в 1005

BEM Uniri‏ פההם

002 REH. 1%

ко
₪

5010 LET
5020 LET z

= לה‎
spag i